﻿Namespace Configuration
 Public Class INI_Configuration
  Protected m_CI As String
  Protected m_KVI As Char
  Public Sub New(ByVal CommentIndentifier As String, ByVal KeyValueIdentifier As Char)
   m_KVI = KeyValueIdentifier
   m_CI = CommentIndentifier
  End Sub
  Public ReadOnly Property CI() As String
   Get
    Return m_CI
   End Get
  End Property
  Public ReadOnly Property KVI() As Char
   Get
    Return m_KVI
   End Get
  End Property
  Public Shared Function DefaultConfig() As INI_Configuration
   Return New INI_Configuration("#", "=")
  End Function

  Public Overrides Function ToString() As String
   Return String.Format("Comment:=[{0}] KeyValueIdentifier:=[{1}]", m_CI, m_KVI)
  End Function
 End Class
End Namespace
